home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / prelude / AmigaTalk.p < prev    next >
Encoding:
Text File  |  2002-03-13  |  8.2 KB  |  241 lines
  1. pTempVar <- <primitive 110 52 >
  2. <primitive 112 pTempVar 1  " updateUserBrowserFiles " \
  3.   #( #[ 16r50 16r52 16r30 16r31 16r50 16rFA 16r05 16r89 16rF2 16r50 16r53 \
  4.         16r32 16r31 16rFA 16r04 16r89 16rF2 16rF5] \
  5.     #( 'AmigaTalk:Browser/UserClasses' 'AmigaTalk:User' \
  6.         'AmigaTalk:Browser/UserClassInstanceVars'  )) >
  7.  
  8. <primitive 112 pTempVar 2  " systemPrivate " \
  9.   #( #[ 16r50 16r52 16r30 16r31 16r50 16rFA 16r05 16r89 16rF2 16r50 16r53 \
  10.         16r32 16r31 16rFA 16r04 16r89 16rF2 16r50 16r52 16r33 16r34 \
  11.         16r50 16rFA 16r05 16r89 16rF2 16r50 16r53 16r35 16r34 16rFA \
  12.         16r04 16r89 16rF2 16r50 16r52 16r36 16r37 16r50 16rFA 16r05 \
  13.         16r89 16rF2 16r50 16r53 16r38 16r37 16rFA 16r04 16r89 16rF2 \
  14.         16rF5] \
  15.     #( 'AmigaTalk:Browser/GeneralClasses' 'AmigaTalk:General' \
  16.         'AmigaTalk:Browser/GeneralClassInstanceVars' \
  17.         'AmigaTalk:Browser/IntuitionClasses' 'AmigaTalk:Intuition' \
  18.         'AmigaTalk:Browser/IntuitionClassInstanceVars' \
  19.         'AmigaTalk:Browser/SystemClasses' 'AmigaTalk:System' \
  20.         'AmigaTalk:Browser/SystemClassInstanceVars'  )) >
  21.  
  22. <primitive 112 pTempVar 3  " fileInPrimitiveFile: " \
  23.   #( #[ 16r50 16r50 16r21 16rFA 16r03 16r8A 16rF2 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 4  " listClassesOf:to:indent: " \
  27.   #( #[ 16r50 16r51 16r21 16r22 16r23 16rFA 16r05 16r89 16rF3 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 5  " listClassDictionaryTo:indent: " \
  31.   #( #[ 16r50 16r50 16r21 16r22 16rFA 16r04 16r89 16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 6  " displayInteger: " \
  35.   #( #[ 16r54 16r21 16r11 16r12 16rFA 16r04 16rBA 16rF2 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 7  " displayString: " \
  39.   #( #[ 16r53 16r21 16r11 16r12 16rFA 16r04 16rBA 16rF2 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 8  " displayFile: " \
  43.   #( #[ 16r52 16r21 16rFA 16r02 16rBA 16rF2 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 9  " getScreenModeID " \
  47.   #( #[ 16r56 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 10  " getFileName " \
  51.   #( #[ 16r55 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 11  " getInteger " \
  55.   #( #[ 16r51 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  56.     #(  )) >
  57.  
  58. <primitive 112 pTempVar 12  " getString " \
  59.   #( #[ 16r50 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 13  " setIOScreenName: " \
  63.   #( #[ 16r21 16r61 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 14  " setIODirectory: " \
  67.   #( #[ 16r21 16r61 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 15  " newIO:title: " \
  71.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r20 16r22 16r81 16r01 16rF2 16rF5 \
  72.        ] \
  73.     #( #setIOMessage: #setIOTitle:  )) >
  74.  
  75. <primitive 112 pTempVar 16  " setIOTitle: " \
  76.   #( #[ 16r21 16r62 16rF5] \
  77.     #(  )) >
  78.  
  79. <primitive 112 pTempVar 17  " setIOMessage: " \
  80.   #( #[ 16r21 16r61 16rF5] \
  81.     #(  )) >
  82.  
  83. <primitive 112 pTempVar 18  " displayWindowInfo: " \
  84.   #( #[ 16r51 16r53 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  85.     #(  )) >
  86.  
  87. <primitive 112 pTempVar 19  " displayScreenInfo: " \
  88.   #( #[ 16r51 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  89.     #(  )) >
  90.  
  91. <primitive 112 pTempVar 20  " displayTaskInfo: " \
  92.   #( #[ 16r51 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  93.     #(  )) >
  94.  
  95. <primitive 112 pTempVar 21  " displayProcessInfo: " \
  96.   #( #[ 16r51 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  97.     #(  )) >
  98.  
  99. <primitive 112 pTempVar 22  " showScreenWindowList " \
  100.   #( #[ 16r51 16r55 16rFA 16r02 16rFA 16rF3 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 112 pTempVar 23  " showTaskProcessList " \
  104.   #( #[ 16r51 16r54 16rFA 16r02 16rFA 16rF3 16rF5] \
  105.     #(  )) >
  106.  
  107. <primitive 112 pTempVar 24  " getWindowAddressList " \
  108.   #( #[ 16r52 16r53 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  109.     #(  )) >
  110.  
  111. <primitive 112 pTempVar 25  " getScreenAddressList " \
  112.   #( #[ 16r52 16r52 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  113.     #(  )) >
  114.  
  115. <primitive 112 pTempVar 26  " getProcessAddressList " \
  116.   #( #[ 16r52 16r50 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  117.     #(  )) >
  118.  
  119. <primitive 112 pTempVar 27  " getTaskAddressList " \
  120.   #( #[ 16r52 16r51 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  121.     #(  )) >
  122.  
  123. <primitive 112 pTempVar 28  " getByteArrayAddress: " \
  124.   #( #[ 16r53 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  125.     #(  )) >
  126.  
  127. <primitive 112 pTempVar 29  " getIntegerAddress: " \
  128.   #( #[ 16r53 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  129.     #(  )) >
  130.  
  131. <primitive 112 pTempVar 30  " getStringAddress: " \
  132.   #( #[ 16r53 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  133.     #(  )) >
  134.  
  135. <primitive 112 pTempVar 31  " getWindowAddress: " \
  136.   #( #[ 16r50 16r53 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  137.     #(  )) >
  138.  
  139. <primitive 112 pTempVar 32  " getScreenAddress: " \
  140.   #( #[ 16r50 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  141.     #(  )) >
  142.  
  143. <primitive 112 pTempVar 33  " getTaskAddress: " \
  144.   #( #[ 16r50 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  145.     #(  )) >
  146.  
  147. <primitive 112 pTempVar 34  " getProcessAddress: " \
  148.   #( #[ 16r50 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  149.     #(  )) >
  150.  
  151. <primitive 112 pTempVar 35  " time: " \
  152.   #( #[ 16rFA 16r00 16rA1 16r72 16r21 16rA5 16rF2 16rFA 16r00 16rA1 16r22 \
  153.         16rC1 16rF3 16rF5] \
  154.     #(  )) >
  155.  
  156. <primitive 112 pTempVar 36  " sh: " \
  157.   #( #[ 16r21 16rFA 16r01 16r7D 16rF3 16rF5] \
  158.     #(  )) >
  159.  
  160. <primitive 112 pTempVar 37  " perform:withArguments: " \
  161.   #( #[ 16r22 16r21 16rFA 16r02 16r8F 16rF3 16rF5] \
  162.     #(  )) >
  163.  
  164. <primitive 112 pTempVar 38  " noDisplay " \
  165.   #( #[ 16r51 16r50 16rFA 16r02 16r08 16rF3 16rF5] \
  166.     #(  )) >
  167.  
  168. <primitive 112 pTempVar 39  " doPrimitive:withArguments: " \
  169.   #( #[ 16r21 16r22 16rFA 16r02 16r1E 16rF3 16rF5] \
  170.     #(  )) >
  171.  
  172. <primitive 112 pTempVar 40  " displayAssign " \
  173.   #( #[ 16r51 16r52 16rFA 16r02 16r08 16rF3 16rF5] \
  174.     #(  )) >
  175.  
  176. <primitive 112 pTempVar 41  " display " \
  177.   #( #[ 16r51 16r51 16rFA 16r02 16r08 16rF3 16rF5] \
  178.     #(  )) >
  179.  
  180. <primitive 112 pTempVar 42  " debug: " \
  181.   #( #[ 16r52 16r21 16rFA 16r02 16r08 16rF3 16rF5] \
  182.     #(  )) >
  183.  
  184. <primitive 112 pTempVar 43  " date " \
  185.   #( #[ 16rFA 16r00 16rA0 16rF3 16rF5] \
  186.     #(  )) >
  187.  
  188. <primitive 112 pTempVar 44  " addGlobal:key: " \
  189.   #( #[ 16r20 16r22 16r21 16r92 16r00 16rF3 16rF5] \
  190.     #( #at:put:  )) >
  191.  
  192. <primitive 112 pTempVar 45  " globalDictionary " \
  193.   #( #[ 16r13 16rF3 16rF5] \
  194.     #(  )) >
  195.  
  196. <primitive 112 pTempVar 46  " clearScreen " \
  197.   #( #[ 16rFA 16r00 16rA2 16rF2 16rF5] \
  198.     #(  )) >
  199.  
  200. <primitive 112 pTempVar 47  " printString " \
  201.   #( #[ 16r20 16rA4 16rFA 16r01 16r98 16rF3 16rF5] \
  202.     #(  )) >
  203.  
  204. <primitive 112 pTempVar 48  " getByteCodeArrayFrom:for: " \
  205.   #( #[ 16r21 16r22 16rFA 16r02 16r9F 16rF3 16rF5] \
  206.     #(  )) >
  207.  
  208. <primitive 112 pTempVar 49  " privateSetup " \
  209.   #( #[ 16r10 16rA1 16rF7 16r09 16r20 16r80 16r00 16r60 16r05 16r28 16rA0 \
  210.         16r63 16r5D 16rF2 16r20 16rF3 16rF5] \
  211.     #( #privateNew  )) >
  212.  
  213. <primitive 112 pTempVar 50  " new " \
  214.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  215.     #( #privateSetup  )) >
  216.  
  217. <primitive 112 pTempVar 51  " privateNew " \
  218.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  219.     #( #new  )) >
  220.  
  221. <primitive 112 pTempVar 52  " isSingleton " \
  222.   #( #[ 16r5B 16rF3 16rF5] \
  223.     #(  )) >
  224.  
  225. <primitive 98 #AmigaTalk \
  226.   <primitive 97 #AmigaTalk #Dictionary #AmigaTalk:General/AmigaTalk.st \
  227.    #(  #uniqueInstance #atMsg #wTitle #globalDict ) \
  228.    #( #updateUserBrowserFiles #systemPrivate #fileInPrimitiveFile:  \
  229.        #listClassesOf:to:indent: #listClassDictionaryTo:indent: #displayInteger: #displayString:  \
  230.        #displayFile: #getScreenModeID #getFileName #getInteger #getString #setIOScreenName:  \
  231.        #setIODirectory: #newIO:title: #setIOTitle: #setIOMessage: #displayWindowInfo:  \
  232.        #displayScreenInfo: #displayTaskInfo: #displayProcessInfo: #showScreenWindowList  \
  233.        #showTaskProcessList #getWindowAddressList #getScreenAddressList #getProcessAddressList  \
  234.        #getTaskAddressList #getByteArrayAddress: #getIntegerAddress: #getStringAddress:  \
  235.        #getWindowAddress: #getScreenAddress: #getTaskAddress: #getProcessAddress: #time: #sh:  \
  236.        #perform:withArguments: #noDisplay #doPrimitive:withArguments: #displayAssign #display #debug:  \
  237.        #date #addGlobal:key: #globalDictionary #clearScreen #printString  \
  238.        #getByteCodeArrayFrom:for: #privateSetup #new #privateNew #isSingleton  ) \
  239.   pTempVar 4 6 > #isSingleton >
  240.  
  241.